0 CLEAR,48895:A$="8601B7620B8EBF12BF620C8EBF19BF620E3954454D50CFBF2B80D6B1620B25037E07F3AE8C037E2B38BF17BD0EF58C00002E037E0B8C86754ABD32BB810022F8301F8C000022EF39:SCREEN7,0,0"CLS:PRINT"Fonction TEMPO"."copyright 1985 by Fabrice"CHR$(20):FORT=1TOLEN(A$)/2
1 POKE48895+T,VAL("&H"+MID$(A$,T*2-1,2)):NEXT:EXEC48896:ATTRB1,1:T$="DEMONSTRATION":FORP=0TO1STEP0:CLS:FORT=1TO13:COLORRND*6+1:LOCATE*2+5,RND*5+10:PRINTMID$(T$,T,1):TEMPORND*20+1:PLAY"L1SI":IFINKEY$=""THENNEXTT,PELSEATTRB0,0:COLOR7:LOCATE0,23:LIST